高分``在线等！！VB 定时循环赋值清除的问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 07:50:03
写了一个定时的代码，如下：
Private Sub Timer1_Timer()
Timer2.Enabled = False
End Sub

Private Sub Timer2_Timer()
Static a
a = a + 1
Label2.Caption = a
End Sub

意思是在label2.caption的内容每隔timer2时间自动加1，当timer1到时后，停止timer2。

现在要加一段代码，在timer1到时后，将label2.caption的值清空，以便重新开始时。
请各位帮帮忙，最好有解释，谢谢
试了下，home20010252不行……

自己改了下行了，谢谢
如下：
Dim a
Private Sub Form_Load()
a = 0 'a的初值
End Sub
Private Sub Timer1_Timer()

Timer2.Enabled = False
a = 0
Label2.Caption = ""
End Sub

Private Sub Timer2_Timer()
a = a + 1
Label2.Caption = a
End Sub

Dim b
Dim a
Private Sub Form_Load()
Timer1.Interval = 1000 '1 秒钟计时一次
Timer2.Interval = 1000
b = 0
a = 0 'a的初值
End Sub

Private Sub Timer1_Timer()

b = b + 1
If b = 1000 Then '1000秒
Timer2.Enabled = False
a = 0
Label2.Caption = ""
End If
End Sub

Private Sub Timer2_Timer()
a = a + 1
Label2.Caption = a

End Sub

'我最开始b值有误,当时就修改了,可能你没看到,
还有,你到底要实现什么样的效果,能不能说清楚些.

Dim a

Private Sub Timer1_Timer()
Timer2.Enabled = False
a = 0
Label2.Caption = a
End Sub

Private Sub Timer2_Timer()
a = a + 1
Label2.Caption = a
End Sub